The Cartoon Guide to Physics/The Cartoon Guide to Physics.iso/pc/physdata/glossary.dir/00056.ls

Text File | 1995-09-10 | 417 b | 15 lines

on mouseDown
  global StartLine, EndLine
  set the castNum of sprite 28 to the number of cast "down"
  set the foreColor of cast 52 to 255
  if StartLine <> 1 then
    puppetSound("Click")
    set EndLine to EndLine - 1
    set StartLine to StartLine - 1
    put line StartLine to EndLine of field "termPath" into field "path"
    if StartLine = 1 then
      set the castNum of sprite 34 to 0
    end if
  end if
end